Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00313.ls

Text File | 1997-07-10 | 509 b | 27 lines

global globalData

on checkInitGlobalData
  if voidp(globalData) = 1 then
    set globalData to [:]
  end if
end

on SetGlobal newProp, newData
  checkInitGlobalData()
  setaProp(globalData, newProp, newData)
end

on GetGlobal newProp
  checkInitGlobalData()
  set currValue to getaProp(globalData, newProp)
  return currValue
end

on DeleteGlobal newProp
  checkInitGlobalData()
  set currValue to getaProp(globalData, newProp)
  if not voidp(currValue) then
    deleteProp(globalData, newProp)
  end if
end